Weighting Object Example

The following example shows the weighting of a pie chart.

Private Sub Command1_Click()
   ' Show the weighting of the pie.
   Form1.MSChart1.ChartType = VtChChartType2dPie
   With Form1.MSChart1.Plot.Weighting
      .Basis = VtChPieWeightBasisTotal
      .Style = VtChPieWeightStyleArea
   End With
End Sub